Imports System.Windows.Forms

Public Class frmAbout

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.Close()
    End Sub

    Private Sub About_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If My.Application.Info.Title <> "" Then
            Me.lblName.Text = My.Application.Info.Title
        Else
            Me.lblName.Text = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
        End If
        Me.lblVersion.Text = System.String.Format(Me.lblVersion.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
        Me.lblCopyRight.Text = My.Application.Info.Copyright
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lllMoarph_de.LinkClicked
        System.Diagnostics.Process.Start("www.singer-systems.de")
    End Sub

    Private Sub LinkLabel1_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("www.xianstudio.com")
    End Sub
End Class
